set proc to sospro
SET TALK OFF
SET SAFE OFF

DR='N:'
F1='DELNUM.MEM'
REST FROM &dr&F1 ADDI
DELNU=space(1)
SAVE ALL LIKE DELNU TO &dr&F1
CLEA ALL

DR='N:'
F1='VISLAB.MEM'
REST FROM &dr&F1 ADDI
VISLA=0
SAVE ALL LIKE VISLA TO &dr&F1
CLEA ALL

return
